##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
## Loading required package: carData
##
## Attaching package: 'car'
## The following object is masked from 'package:dplyr':
##
## recode
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
pl <- read.csv("C:/Users/matth/Documents/Grad School/Spring 2022/STAA 566/Data/pl_table_05_20.csv")
table(pl$Squad)
##
## Arsenal Aston Villa Birmingham City Blackburn Blackpool
## 16 13 4 7 1
## Bolton Bournemouth Brighton Burnley Cardiff City
## 7 5 4 7 2
## Charlton Ath Chelsea Crystal Palace Derby County Everton
## 2 16 8 1 16
## Fulham Huddersfield Hull City Leeds United Leicester City
## 11 2 5 1 7
## Liverpool Manchester City Manchester Utd Middlesbrough Newcastle Utd
## 16 16 16 5 14
## Norwich City Portsmouth QPR Reading Sheffield Utd
## 5 5 3 3 3
## Southampton Stoke City Sunderland Swansea City Tottenham
## 9 10 11 7 16
## Watford West Brom West Ham Wigan Athletic Wolves
## 6 11 15 8 6
#Filter to only keep teams that played in the Premiere League for all 16 seasons
pl.best <- subset(pl, Squad %in% c("Arsenal", "Everton", "Chelsea", "Manchester City", "Liverpool", "Manchester Utd", "Tottenham"))
#Remove columns that have no data
pl.best <- pl.best[,1:11]
#Highlight by squad
pl.highlight <- highlight_key(pl.best, ~Squad)
#Making GGplot object
pl.gg <- ggplot(data = pl.highlight,
mapping = aes(x = Year,
y = GD,
text = Rk,
color = Squad)) +
geom_point(aes(),
alpha = 1,
shape = 20, size = 1.5) +
geom_smooth(method = "loess", se = FALSE, lwd = .5) +
ylab("Goal Difference (goals for minus goals against)") +
scale_y_continuous(breaks = seq(-20, 80, by = 20)) +
theme_classic(base_size = 12) +
theme(legend.position = c(0.87, 0.25)) +
ggtitle("Goal Difference of Seven Premier League Teams")
pl.plotly.highlight <- ggplotly(pl.gg, tooltip = c("Squad", "GD", "Rk")) %>%
highlight(on = "plotly_hover",
off = "plotly_relayout")
## `geom_smooth()` using formula 'y ~ x'
pl.plotly.highlight